Application.ExecuteCommand("Global Options")
OptionsDlg.ActiveTab = "Global|General"
OptionsDlg.GlobalDlg.DesignUnits = 1
OptionsDlg.Ok.Click()
